home *** CD-ROM | disk | FTP | other *** search
/ Animation How-To / Animation How-to CD.iso / PLY / CHAPTER5 / SHATTER / COLOR2.BAS < prev    next >
BASIC Source File  |  1994-01-01  |  759b  |  37 lines
  1. ' COLORER.BAS
  2.  
  3. OPEN "col2.inc" FOR OUTPUT AS #1
  4.  
  5. PRINT #1, "define reflective"
  6. PRINT #1, "surface {"
  7. PRINT #1, "   ambient 0.1"
  8. PRINT #1, "   diffuse 0.7"
  9. PRINT #1, "   specular white, 0.7"
  10. PRINT #1, "   microfacet Phong 10"
  11. PRINT #1, "   reflection white, 0.7"
  12. PRINT #1, "   }"
  13. PRINT #1,
  14.  
  15. FOR a = 1 TO 192
  16.    x = RND
  17.    y = .5 * RND
  18.    z = RND
  19.    c$ = RIGHT$("000" + LTRIM$(STR$(a)), 3)
  20.    col$ = "color" + c$
  21.  
  22.    PRINT #1, USING "define \      \ < #.####, #.####, #.#### > "; col$; x; y; z
  23. NEXT a
  24.  
  25. PRINT #1,
  26.  
  27. FOR a = 1 TO 192
  28.   c$ = RIGHT$("000" + LTRIM$(STR$(a)), 3)
  29.   ref$ = "refl_" + c$
  30.   col$ = "color" + c$
  31.   PRINT #1, USING "define \      \ texture { reflective { color \      \ } }"; ref$; col$
  32. NEXT a
  33.  
  34. CLOSE #1
  35.  
  36.  
  37.